Option Explicit
Sub A_Sample068()
    Dim myObjs   As New Collection
    Dim myObj1   As Object
    Dim myObj2   As Object
    Dim myObjStr As String
    myObjStr = "objName"
    myObjs.Add myObj1, myObjStr
    'ǳƨ즹
    Set myObj2 = myObjs(1)
    If myObj2 Is Nothing Then
        MsgBox "ѩoO@ӽdҡAҥHLk"
    Else
        MsgBox myObj2.Name
    End If
    Set myObj1 = Nothing		'
    Set myObj2 = Nothing
    Set myObjs = Nothing
End Sub
